home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
SHELLS
/
SZ2
/
SK2.EVT
< prev
next >
Wrap
Text File
|
1992-08-31
|
4KB
|
115 lines
{|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
This code changes both the MenuBar and StatusLine.
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
procedure Dump ;
begin
Delete ( MenuBar ) ;
Dispose ( MenuBar , Done ) ;
Delete ( StatusLine ) ;
Dispose ( StatusLine , Done ) ;
end ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
procedure hdInit ;
begin
Dump ;
{$IFDEF code}
MenuBar := InitMenuBar1 ;
StatusLine := InitStatusLine1 ;
{$ELSE}
MenuBarName := 'MENUBAR_1' ;
StatusLineName := 'STATUSLINE_1' ;
Application^.InitMenuBar ;
Application^.InitStatusLine ;
{$ENDIF}
Insert ( MenuBar ) ;
Insert ( StatusLine ) ;
end ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
procedure hdNotepad ;
begin
Dump ;
{$IFDEF code}
MenuBar := InitMenuBar2 ;
StatusLine := InitStatusLine2 ;
{$ELSE}
MenuBarName := 'MENUBAR_2' ;
StatusLineName := 'STATUSLINE_2' ;
Application^.InitMenuBar ;
Application^.InitStatusLine ;
{$ENDIF}
Insert ( MenuBar ) ;
Insert ( StatusLine ) ;
end ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
procedure hdTimePlanner ;
begin
Dump ;
{$IFDEF code}
MenuBar := InitMenuBar3 ;
StatusLine := InitStatusLine3 ;
{$ELSE}
MenuBarName := 'MENUBAR_3' ;
StatusLineName := 'STATUSLINE_3' ;
Application^.InitMenuBar ;
Application^.InitStatusLine ;
{$ENDIF}
Insert ( MenuBar ) ;
Insert ( StatusLine ) ;
end ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
procedure hdAddressBook ;
begin
Dump ;
{$IFDEF code}
MenuBar := InitMenuBar4 ;
StatusLine := InitStatusLine4 ;
{$ELSE}
MenuBarName := 'MENUBAR_4' ;
StatusLineName := 'STATUSLINE_4' ;
Application^.InitMenuBar ;
Application^.InitStatusLine ;
{$ENDIF}
Insert ( MenuBar ) ;
Insert ( StatusLine ) ;
end ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
procedure hdCommunications ;
begin
Dump ;
{$IFDEF code}
MenuBar := InitMenuBar5 ;
StatusLine := InitStatusLine4 ;
{$ELSE}
MenuBarName := 'MENUBAR_5' ;
StatusLineName := 'STATUSLINE_4' ;
Application^.InitMenuBar ;
Application^.InitStatusLine ;
{$ENDIF}
Insert ( MenuBar ) ;
Insert ( StatusLine ) ;
end ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
procedure hdCalculator ;
begin
Dump ;
{$IFDEF code}
MenuBar := InitMenuBar6 ;
StatusLine := InitStatusLine5 ;
{$ELSE}
MenuBarName := 'MENUBAR_6' ;
StatusLineName := 'STATUSLINE_5' ;
Application^.InitMenuBar ;
Application^.InitStatusLine ;
{$ENDIF}
Insert ( MenuBar ) ;
Insert ( StatusLine ) ;
end ;